home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1998 October / EnigmA AMIGA RUN 31 (1998)(G.R. Edizioni)(IT)[!][issue 1998-10].iso / earkit / chat / amarquee / examples / pascaltest.p < prev    next >
Text File  |  1998-09-22  |  1KB  |  43 lines
  1. Program AmarqueeTest1;
  2.  
  3. {PCQ Pascal test program that uses amarquee.library.  Doesn't do much...}
  4. {just connects and sets a variable, then disconnects.}
  5. {Be sure to link this file with the AMarquee.lib stub library, or it won't link!}
  6.  
  7. {$I "Include:Exec/Libraries.i"}
  8. {$I "Include:Libraries/AMarquee.i"}
  9.  
  10. Var
  11.   AMarqueeBase : Address;
  12.   session : QSessionPtr;
  13.   setOpVal : Integer;
  14.   freeSessionVal : Integer;
  15.  
  16. begin
  17.     AMarqueeBase := OpenLibrary("amarquee.library", 44);
  18.     if AMarqueeBase = nil then begin
  19.       writeln('Could not open amarquee.library');
  20.       exit(20);
  21.       end;
  22.  
  23.     {Connect to localhost}
  24.     session := QNewSession("localhost", 2957, "pascal test");
  25.     if session = nil then begin
  26.       writeln('Could not create connection to localhost/2957');
  27.       CloseLibrary(AMarqueeBase);
  28.       exit(20);
  29.       end;
  30.  
  31.     {Set a variable}
  32.     setOpVal := QSetOp(session, "testVal", "just a test", 12);
  33.     if setOpVal = 0 then begin
  34.       writeln('Warning, QSetOp failed.');
  35.       end;
  36.         
  37.     {Close the connection}
  38.     freeSessionVal := QFreeSession(session);
  39.     
  40.     {Clean up}
  41.     CloseLibrary(AMarqueeBase);
  42. end.
  43.